The Fatted Calf

home *** CD-ROM | disk | FTP | other *** search

/ The Fatted Calf / The Fatted Calf.iso / Demos / ByCompany / FirstClass / Tailor / Tailor.app / EngineScan.data < prev next >

Wrap

Text File | 1994-01-17 | 17KB | 2,770 lines

%! Adobe packPS Version 2.0 (9) /revision 14 def /product (Tailor PostScript Input Engine) def 100 dict dup /TailorEngineScanDict exch def begin /originalscale /scale load def /originaltranslate /translate load def /origdefinefont /definefont load def /origfindfont /findfont load def /originalfindfont { 1 dict begin /definefont //origdefinefont def /setshared {pop} def /setglobal {pop} def //origfindfont exec end } bind def /showprogress { //EngineFeedbackDict begin currentfile bytesavailable leftbytes add totalbytes div 1 exch sub dup progress sub 0.01 ge { dup /progress exch def gsave EngineFeedbackGstate setgstate 0 exch 0 exch 1 rectfill grestore } { pop } ifelse end } bind def //EngineFeedbackDict /progress 0 put true setglobal /enginestate 10 dict def false setglobal //enginestate /tag 0 put /setallchanged { //enginestate /matr true put //enginestate /color true put //enginestate /font true put //enginestate /line true put //enginestate /dash true put //enginestate /clip true put } bind def //setallchanged exec /enginecache 10 dict def enginecache /mapping 2 dict put enginecache /bitmap 15 dict put //EngineSubFontName findfont pop /NoFontName (?) def /holdchar 1 string def /holdstring 1000 string def /holdname 100 string def /holdcolor 250 string def /holdmatrix matrix def /prtnum { //holdstring cvs print ( ) print } bind def /prtpath { { (M ) print //prtnum exec //prtnum exec } { (L ) print //prtnum exec //prtnum exec } { (C ) print //prtnum exec //prtnum exec //prtnum exec //prtnum exec //prtnum exec //prtnum exec} { (O ) print } pathforall } bind def /getinversemapping { mapping target known { /inverse mapping target get def }{ /inverse 230 dict def 0 target {inverse exch 2 index put 1 add} forall pop mapping target inverse put } ifelse } bind def /prtstring { //enginecache begin source target eq { (%stdout)(w) file exch writehexstring }{ //getinversemapping exec //holdstring exch 0 exch { source exch get inverse 1 index known { inverse exch get } { pop inverse /.notdef get } ifelse 3 copy put pop 1 add } forall 0 exch getinterval (%stdout)(w) file exch writehexstring } ifelse end ( ) print } bind def /prtmatr { //enginestate /matr get { //enginestate /matr false put (<M ) print //holdmatrix currentmatrix {//prtnum exec} forall (>\n) print } if } bind def /prtcolor { //enginestate /color get { //enginestate /color false put (<C ) print mark currentcolor dup type /integertype eq { currentcolorspace aload pop print } { counttomark dup //prtnum exec {//prtnum exec} repeat } ifelse cleartomark (>\n) print } if } bind def /normfontname { //holdstring cvs (_) search {pop pop} if 0 exch { dup 45 eq 1 index 48 ge 2 index 57 le and or 1 index 65 ge 2 index 90 le and or 1 index 97 ge 2 index 122 le and or {//holdname exch 2 index exch put 1 add} {pop dup 1 ge {exit} if} ifelse } forall //holdname exch 0 exch getinterval } bind def /prtfont { //enginestate /font get { //enginestate /font false put //enginestate /outline false put (<A ) print currentfont /FontName known { currentfont /FontName get //normfontname exec } { //NoFontName } ifelse dup print ( ) print cvn //EngineUseOutline { dup //originalfindfont exec pop dup SharedFontDirectory exch known not { currentfont /TailorEngineSubClone known not { //enginestate /outline true put } if } if } if SharedFontDirectory 1 index known not { pop //EngineSubFontName } if SharedFontDirectory exch get /Encoding get //enginecache exch /target exch put //enginecache /source currentfont /Encoding get put currentfont /ScaleMatrix known {currentfont /ScaleMatrix get} {[1 0 0 1 0 0]} ifelse {//prtnum exec} forall (>\n) print } if } bind def /prtline { //enginestate /line get { //enginestate /line false put (<L ) print currentlinewidth //prtnum exec currentlinecap //prtnum exec currentlinejoin //prtnum exec currentmiterlimit //prtnum exec (>\n) print } if } bind def /prtdash { //enginestate /dash get { //enginestate /dash false put (<D ) print currentdash //prtnum exec {//prtnum exec} forall (>\n) print } if } bind def /prtclip { //enginestate /clip get { //enginestate /clip false put (<I ) print currenthalftonephase pop prtnum (>\n) print } if } bind def /restore {//setallchanged exec restore } bind def /grestore {//setallchanged exec grestore } bind def /grestoreall {//setallchanged exec grestoreall } bind def /setgstate {//setallchanged exec setgstate } bind def /setpagedevice {//setallchanged exec setpagedevice } bind def /initgraphics {//setallchanged exec initgraphics } bind def /initmatrix {//enginestate /matr true put initmatrix } bind def /setmatrix {//enginestate /matr true put setmatrix } bind def /translate {//enginestate /matr true put translate } bind def /scale {//enginestate /matr true put scale } bind def /rotate {//enginestate /matr true put rotate } bind def /concat {//enginestate /matr true put concat } bind def /nxsetgray {//enginestate /color true put setgray } bind def /nxsetrgbcolor {//enginestate /color true put setrgbcolor } bind def /setgray {//enginestate /color true put setgray } bind def /sethsbcolor {//enginestate /color true put sethsbcolor } bind def /setrgbcolor {//enginestate /color true put setrgbcolor } bind def /setcmykcolor {//enginestate /color true put setcmykcolor } bind def /setcolor {//enginestate /color true put setcolor } bind def /setfont {//enginestate /font true put setfont } bind def /selectfont {//enginestate /font true put selectfont } bind def /setlinewidth {//enginestate /line true put setlinewidth } bind def /setlinecap {//enginestate /line true put setlinecap } bind def /setlinejoin {//enginestate /line true put setlinejoin } bind def /setmiterlimit {//enginestate /line true put setmiterlimit } bind def /setdash {//enginestate /dash true put setdash } bind def /_NXSetCMYKOrRGB { (6 ) //holdcolor copy pop pop pop pop 2 4 { exch //holdstring cvs dup length exch //holdcolor exch 3 index exch putinterval add //holdcolor 1 index ( ) putinterval 1 add } repeat 2 { //holdcolor 1 index ($) putinterval 1 add exch dup length exch //holdcolor exch 3 index exch putinterval add //holdcolor 1 index ($) putinterval 1 add } repeat [ /Indexed /DeviceGray 3 index 1 sub //holdcolor 0 6 index getinterval ] setcolorspace pop //enginestate /color true put } bind def /initclip { 0 0 sethalftonephase //enginestate /clip true put initclip } bind def /clip { //prtmatr exec //enginestate begin /tag tag 1 add def (<P ) print tag prtnum currenthalftonephase pop prtnum (N ) print //prtpath exec (>\n) print tag 0 sethalftonephase /clip true def end clip } bind def /eoclip { //prtmatr exec //enginestate begin /tag tag 1 add def (<P ) print tag prtnum currenthalftonephase pop prtnum (E ) print //prtpath exec (>\n) print tag 0 sethalftonephase /clip true def end eoclip } bind def /sethalftonephase {pop pop} def /findfont { dup //originalfindfont exec dup /FontType get 1 ne { pop /Courier //originalfindfont exec ($$Found Non-Type-1: ) print 1 index prtnum ($$\n) print } if dup /FontName known { dup /FontName get /Courier eq { 1 index //normfontname exec /Courier ne { pop //EngineSubFontName //originalfindfont exec dup length 1 add dict dup begin exch { 1 index /FID ne {def}{pop pop} ifelse } forall /FontName 2 index def /TailorEngineSubClone true def end 1 index exch //definefont exec ($$Cloned Unavailable: ) print dup /FontName get prtnum ($$\n) print } if } if } if exch pop } bind def /findresource { dup /Font eq { pop findfont }{ findresource } ifelse } bind def /definefont { dup /FontType get 1 ne { 1 index //normfontname exec dup //originalfindfont exec dup /FontName get /Courier eq { 1 index /Courier ne { pop //EngineSubFontName //originalfindfont exec } if } if dup length 2 add dict dup begin exch { 1 index /FID ne {def}{pop pop} ifelse } forall /FontName 4 index def /Encoding 3 index /Encoding get def /TailorEngineSubClone true def 2 index { currentdict 2 index known {pop pop}{def} ifelse } forall end exch pop exch pop ($$Cloned Non-Type-1: ) print dup /FontName get prtnum ($$\n) print } { 1 index //normfontname exec //originalfindfont exec pop } ifelse //definefont exec } bind def /defineresource { dup /Font eq { pop definefont }{ defineresource } ifelse } bind def /eexec { count 1 gt { 1 index type /dicttype eq { 1 index /FontName known { 1 index /FontName get //normfontname exec //originalfindfont exec pop } if } if } if //eexec exec } bind def /stroke { //prtmatr exec //prtcolor exec //prtline exec //prtdash exec //prtclip exec (<S ) print //prtpath exec (>\n) print newpath //showprogress exec } bind def /fill { //prtmatr exec //prtcolor exec //prtclip exec (<F N ) print //prtpath exec (>\n) print newpath //showprogress exec } bind def /eofill { //prtmatr exec //prtcolor exec //prtclip exec (<F E ) print //prtpath exec (>\n) print newpath //showprogress exec } bind def /awidthshow { //prtmatr exec //prtcolor exec //prtfont exec //prtclip exec //enginestate /outline get 7 copy {(<O )} {(<T )} ifelse print currentpoint //prtnum exec //prtnum exec //prtstring exec //prtnum exec //prtnum exec //prtnum exec //prtnum exec //prtnum exec (>\n) print { gsave 10 dict begin /cx 6 index def /cy 5 index def /char 4 index def /ax 3 index def /ay 2 index def currentpoint /y exch def /x exch def 20 20 //originalscale dup { newpath 0 0 moveto //holdchar dup 0 3 index put dup true charpath x neg y neg //originaltranslate fill x y //originaltranslate stringwidth y add ay add exch x add ax add exch 3 -1 roll char eq { cy add exch cx add exch } if /y exch def /x exch def } forall end (<Q>\n) print grestore } if awidthshow //showprogress exec } bind def /show { 0 0 0 0 0 6 -1 roll //awidthshow exec } bind def /ashow { 0 0 0 6 -3 roll //awidthshow exec } bind def /widthshow { 0 exch 0 exch //awidthshow exec } bind def /kshow { dup length 0 gt { dup 0 1 getinterval show //enginecache exch /kstring exch put //enginecache exch /kproc exch put //enginecache /kindex 0 put //enginecache /kstring get length 1 sub { //enginecache /kstring get //enginecache /kindex get get //enginecache /kindex 2 copy get 1 add put //enginecache /kstring get //enginecache /kindex get get //enginecache /kproc get exec //enginecache /kstring get //enginecache /kindex get 1 getinterval show } repeat } { pop pop } ifelse } bind def /glyphshow { //prtmatr exec //prtcolor exec //prtfont exec //prtclip exec //enginestate /outline get 2 copy {(<O )} {(<T )} ifelse print currentpoint //prtnum exec //prtnum exec //enginecache begin //getinversemapping exec inverse 1 index known { inverse exch get } { pop inverse /.notdef get } ifelse end //holdstring exch 0 exch put //holdstring 0 1 getinterval (%stdout)(w) file exch writehexstring ( 0 0 0 0 0>\n) print { gsave 0 currentfont /Encoding get {2 index eq {exit} if 1 add} forall dup 256 ge { pop 32 } if //holdchar exch 0 exch put currentpoint 20 20 //originalscale newpath moveto //holdchar true charpath fill (<Q>\n) print grestore } if glyphshow //showprogress exec } bind def /engineimage { //prtmatr exec //prtclip exec (<B ) print pixelsWide //prtnum exec pixelsHigh //prtnum exec bitsPerSample //prtnum exec samplesPerPixel //prtnum exec isPlanar {1}{0} ifelse //prtnum exec hasAlpha {1}{0} ifelse //prtnum exec imageMatrix {//prtnum exec} forall /stdout (%stdout)(w) file def /left bitsPerSample samplesPerPixel mul pixelsWide mul 7 add 8 idiv dataSrcs length idiv pixelsHigh mul def /used 0 def dataSrcs 0 get type /stringtype eq { { dataSrcs { dup length left gt { 0 left getinterval } if dup length dup /used exch def 0 eq {pop exit} if stdout exch writehexstring (\n) print } forall used 0 eq {exit} if /left left used sub def left 0 le {exit} if } loop } { dataSrcs 0 get type /filetype eq { { dataSrcs { //holdstring dup length left gt { 0 left getinterval } if readstring exch dup length dup /used exch def 0 eq {pop pop exit} if stdout exch writehexstring (\n) print not {/used 0 def exit} if } forall used 0 eq {exit} if /left left used sub def left 0 le {exit} if } loop } { { dataSrcs { exec dup length left gt { 0 left getinterval } if dup length dup /used exch def 0 eq {pop exit} if stdout exch writehexstring (\n) print } forall used 0 eq {exit} if /left left used sub def left 0 le {exit} if } loop } ifelse } ifelse (>\n) print //showprogress exec } bind def /image { //enginecache /bitmap get begin dup type /dicttype eq { dup /ImageMatrix get /imageMatrix exch def dup /Height get /pixelsHigh exch def dup /Width get /pixelsWide exch def dup /MultipleDataSources known {dup /MultipleDataSources get}{false} ifelse /isPlanar exch def dup /DataSource get isPlanar not {[ exch ]} if /dataSrcs exch def dup /BitsPerComponent get /bitsPerSample exch def dup /Decode get length 2 idiv /samplesPerPixel exch def pop /hasAlpha false def }{ /dataSrcs exch [ exch ] def /imageMatrix exch def /bitsPerSample exch def /pixelsHigh exch def /pixelsWide exch def /samplesPerPixel 1 def /isPlanar false def /hasAlpha false def } ifelse //engineimage exec end } bind def /colorimage { //enginecache /bitmap get begin /samplesPerPixel exch def /isPlanar exch def isPlanar {samplesPerPixel} {1} ifelse array astore /dataSrcs exch def /imageMatrix exch def /bitsPerSample exch def /pixelsHigh exch def /pixelsWide exch def /hasAlpha false def //engineimage exec end } bind def /alphaimage { //enginecache /bitmap get begin /samplesPerPixel exch 1 add def /isPlanar exch def isPlanar {samplesPerPixel} {1} ifelse array astore /dataSrcs exch def /imageMatrix exch def /bitsPerSample exch def /pixelsHigh exch def /pixelsWide exch def /hasAlpha true def //engineimage exec end } bind def /imagemask { //enginecache /bitmap get begin dup type /dicttype eq { dup /ImageMatrix get /imageMatrix exch def dup /Height get /pixelsHigh exch def dup /Width get /pixelsWide exch def dup /MultipleDataSources known {dup /MultipleDataSources get}{false} ifelse /isPlanar exch def dup /DataSource get isPlanar not {[ exch ]} if /dataSrcs exch def /bitsPerSample 1 def /samplesPerPixel 1 def pop /hasAlpha false def }{ /dataSrcs exch [ exch ] def /imageMatrix exch def pop /pixelsHigh exch def /pixelsWide exch def /bitsPerSample 1 def /samplesPerPixel 1 def /isPlanar false def /hasAlpha false def } ifelse //engineimage exec end } bind def /TailorBeginDocument { //prtclip exec (<G ) print print (>\n) print } bind def /TailorEndDocument { //prtclip exec (<E ) print print (>\n) print } bind def /TailorBeginPage { //prtclip exec (<N ) print print (>\n) print } bind def /showpage { (<N 0>\n) print } bind def /erasepage { } bind def /NXRectPath { 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto neg 0 rlineto closepath } bind def /NXProcessRectArgs { 1 index type /arraytype eq{ exch 0 4 2 index length 1 sub{ dup 3 add 1 exch{1 index exch get exch}for 5 1 roll 5 index exec }for pop pop }{exec}ifelse } bind def /rectfill { gsave newpath {//NXRectPath exec fill} //NXProcessRectArgs exec grestore } bind def /rectclip { newpath {//NXRectPath exec} //NXProcessRectArgs exec clip newpath } bind def /rectstroke { gsave newpath dup type /arraytype eq {dup length 6 eq} {false} ifelse { {gsave //NXRectPath exec null concat stroke grestore} dup length array cvx copy dup 3 4 -1 roll put //NXProcessRectArgs exec } { {//NXRectPath exec stroke} //NXProcessRectArgs exec } ifelse grestore } bind def /xyshow { 0 1 3 index length 1 sub{ currentpoint 4 index 3 index 1 getinterval show 3 index 3 index 2 mul 1 add get add exch 3 index 3 index 2 mul get add exch moveto pop }for pop pop } bind def /xshow { 0 1 3 index length 1 sub{ currentpoint 4 index 3 index 1 getinterval show exch 3 index 3 index get add exch moveto pop }for pop pop } bind def /yshow { 0 1 3 index length 1 sub{ currentpoint 4 index 3 index 1 getinterval show 3 index 3 index get add moveto pop }for pop pop } bind def /ueofill { gsave newpath uappend eofill grestore } bind def /ufill { gsave newpath uappend fill grestore } bind def /ustroke { gsave newpath dup length 6 eq {exch uappend concat}{uappend}ifelse stroke grestore } bind def /execform { dup /Implementation known not { dup /Implementation 0 put readonly } if gsave dup /Matrix get concat dup /BBox get aload pop exch 3 index sub exch 2 index sub rectclip dup /PaintProc get exec grestore } bind def /put { 1 index /FontName ne {put} { 2 index 2 index known {pop pop pop} {put} ifelse } ifelse } bind def /setpapersize {pop} bind def userdict begin /11x17 { initmatrix } def /tabloid { initmatrix } def /a2 { initmatrix } def /a3 { initmatrix } def /a4 { initmatrix } def /a4small { initmatrix } def /a5 { initmatrix } def /b4 { initmatrix } def /b5 { initmatrix } def /executive { initmatrix } def /ledger { initmatrix } def /legal { initmatrix } def /letter { initmatrix } def /lettersmall { initmatrix } def end statusdict begin /processcolors { 3 } def end (* ) print product print ( - revision ) print revision prtnum (*\n) print (<V ) print holdmatrix defaultmatrix {prtnum} forall (>\n) print